﻿Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles setfont.Click
        Dim dlg As New Windows.Forms.FontDialog
        If dlg.ShowDialog() = DialogResult.OK Then
            Console.WriteLine(dlg.Font.ToString())
        End If
    End Sub

    Private Sub setcolor_Click(sender As Object, e As EventArgs) Handles setcolor.Click
        Dim dlg2 As New Windows.Forms.ColorDialog
        If dlg2.ShowDialog() = DialogResult.OK Then
            Console.WriteLine(dlg2.Color.ToString())
        End If
    End Sub
    Private Sub savefile_Click(sender As Object, e As EventArgs) Handles savefile.Click
        Dim dlg3 As New Windows.Forms.SaveFileDialog
        If dlg3.ShowDialog() = DialogResult.OK Then
            Console.WriteLine(dlg3.Filter.ToString())
        End If
    End Sub

End Class





